/* GUI CONVERTED from rccupc.p (converter v1.75) Tue Apr 10 12:04:06 2001 */
/* rccupc.p - Cum Ship Reset Report Print                                     */
/* Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA.                        */
/* All rights reserved worldwide.  This is an unpublished work.               */
/* $Revision: 1.7.2.4 $                                                         */
/*V8:ConvertMode=Report                                                       */
/* REVISION: 8.5          CREATED: 09/22/97   BY: *J21N* Suresh Nayak         */
/* REVISION: 8.5    LAST MODIFIED: 12/01/97   BY: *J276* Suresh Nayak         */
/* REVISION: 8.5    LAST MODIFIED: 09/17/98   BY: *J2Q8* Patrick Rowan        */
/* REVISION: 8.6E   LAST MODIFIED: 10/08/98   BY: *K1XJ* Alfred Tan           */
/* REVISION: 9.1    LAST MODIFIED: 11/03/99   BY: *N05R* B. Gates             */
/* REVISION: 9.1    LAST MODIFIED: 03/24/00   BY: *N08T* Annasaheb Rahane     */
/* REVISION: 9.1    LAST MODIFIED: 08/12/00   BY: *N0KP* Mark Brown           */
/* $Revision: 1.7.2.4 $    BY: Jean Miller    DATE: 03/22/01 ECO: *P008*        */
/******************************************************************************/
/* All patch markers and commented out code have been removed from the source */
/* code below. For all future modifications to this file, any code which is   */
/* no longer required should be deleted and no in-line patch markers should   */
/* be added.  The ECO marker should only be included in the Revision History. */
/******************************************************************************/


/*GUI preprocessor directive settings */
&SCOPED-DEFINE PP_GUI_CONVERT_MODE REPORT

{mfdeclre.i}
{gplabel.i} /* EXTERNAL LABEL INCLUDE */

define input  parameter sod_recid as recid no-undo.
define input  parameter cum_ship_start_dt as date no-undo.
define input  parameter l_int_time as integer no-undo.
define input  parameter l_summary as logical no-undo.
define input  parameter l_dt_ship_eff as logical no-undo.
define input  parameter l_cum_adj as logical no-undo.
define input  parameter sortoption as integer no-undo.
define output parameter l_new_cum_qty like sod_cum_qty[1] no-undo.

define variable l_sod_nbr like sod_nbr no-undo.
define variable l_sod_line like sod_line no-undo.
define variable l_old_db as character no-undo.
define variable l_err_flag as integer no-undo.

define shared frame summary1.
define shared frame summary2.

/* FORM DEFINITION FOR REPORT DISPLAY */
{rccupfrm.i}

find sod_det where recid(sod_det) = sod_recid no-lock no-error.
assign
   l_sod_nbr  = sod_nbr
   l_sod_line = sod_line
   l_err_flag = 0.

find si_mstr where si_site = sod_site no-lock.
if si_db <> global_db then do:
   l_old_db = global_db.
   {gprun.i ""gpalias3.p"" "(input si_db, output l_err_flag)"}
end. /* END OF IF si_db <> global_db */

if l_err_flag = 0 or l_err_flag = 9 then do:

   /* PASSED INPUT PARAMETERS l_dt_ship_eff */
   /* AND l_cum_adj TO rccupc1.p            */
   /*CHANGED PARAMETER l_start_time TO l_int_time*/
   {gprun.i ""rccupc1.p""
      "(input  l_sod_nbr,
        input  l_sod_line,
        input  cum_ship_start_dt,
        input  l_int_time,
        input  l_summary,
        input  l_dt_ship_eff,
        input  l_cum_adj,
        input  sortoption,
        output l_new_cum_qty)"}

end.  /* END OF If l_err_flag = 0 or l_err_flag = 9 */

if l_old_db <> si_db
then do:
   {gprun.i ""gpalias3.p"" "(input l_old_db, output l_err_flag)"}
end. /* END OF IF l_old_db <> si_db */
